home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / flybox3.dir / 00008_Script_MovieScript < prev    next >
Text File  |  1995-05-02  |  6KB  |  101 lines
  1. global  currentMovie, gMovNo, gDirMovie, fixPal, gsliderBar, listC, gQuestNo, gPalNo
  2. global gStages, gPatt, gNames, gInst, listMTH, gAnsListNo, gSetQuest
  3.  
  4. on startMovie
  5.   if the machineType < 256 then 
  6.     openXlib "XPALETTE"
  7.     set fixPal = fixPalette(mNew,the stageleft,the stagetop,the stageright,the stagebottom)
  8.   end if
  9.   if the machineType >= 256 then 
  10.     openXlib "XPALETTE.dll"
  11.     set fixPal = xPalette(mNew)
  12.   end if
  13.   
  14.   set gQuestNo = 0
  15.   repeat with i = 342 to 368
  16.     if the machineType = 256 then 
  17.       if the castType of cast i = #text then 
  18.         set the textFont of field i = "arial"
  19.         set the textSize of field i to 12
  20.         set the forecolor of cast i = 255
  21.       end if
  22.     else
  23.       if the colordepth = 8 then set the forecolor of cast i = 255
  24.       else set the forecolor of cast i = 0
  25.     end if
  26.   end repeat
  27.   fixPal(mpatchIt)
  28.   set listB = list(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23)
  29.   set listC = list()
  30.   repeat with i = 1 to 23
  31.     set x = random(count(listB))
  32.     put getat(listB,x) into v
  33.     deleteAt(listB,x)
  34.     addAt(listC,i,v)
  35.   end repeat
  36.   
  37. end
  38.  
  39. on randomPosition
  40.   set listA = list(71,72,73,74,75,76,77,78,79,80,81,82,83,84)
  41.   repeat with i = 1 to 14
  42.     puppetSprite (i+29), true
  43.     set x = random(count(listA))
  44.     put getat(listA,x) into v
  45.     deleteAt(listA,x)
  46.     set the castNum of sprite (i+32) = v 
  47.   end repeat
  48.   if gQuestNo <= 22 then 
  49.     set gQuestNo = gQuestNo + 1
  50.     put getAt(listC, gQuestNo) into lQuestNo
  51.     set the castNum of sprite 2 = lQuestNo+250
  52.     set the castNum of sprite 3 = lQuestNo+300
  53.     put lQuestNo+300 into gSetQuest
  54.   else 
  55.     set gQuestNo = 1
  56.     put getAt(listC, 1) into lQuestNo
  57.     set the castNum of sprite 2 = lQuestNo+250
  58.     set the castNum of sprite 3 = lQuestNo+300
  59.     put lQuestNo+300 into gSetQuest
  60.   end if
  61.   put lquestNo into gAnsListNo
  62.   setAnsList
  63. end
  64.  
  65. on setAnsList
  66.   global listMTH, gAnsListNo
  67.   if gAnsListNo = 1 then set listMTH = list("MTH_001.PIC" , "10.TXT" , "3Stimu.pict" , "Stimu.pict" , "16.1.TXT" , "3roywul.pict" , "22.TXT" , "3ELK.PICT" , "26.TXT")
  68.   if gAnsListNo = 2 then set listMTH = list("MTH_002.PIC" , "10.TXT" , "3Stimu.pict" , "Stimu.pict" , "16.1.TXT" , "3roywul.pict" , "21.TXT" , "3ELK.PICT" , "26.TXT")
  69.   if gAnsListNo = 3 then set listMTH = list("MTH_003.PIC" , "9.TXT" , "3kaufst.pict" , "kaufst.pict" , "14.1.TXT" , "3prince.pict" , "20.2.TXT" , "3hare.pict" , "26.TXT")
  70.   if gAnsListNo = 4 then set listMTH = list("MTH_004.PIC" , "9.TXT" , "3kaufst.pict" , "kaufst.pict" , "15.1.TXT" , "3prince.pict" , "21.TXT" , "3hare.pict" , "26.TXT")
  71.   if gAnsListNo = 5 then set listMTH = list("MTH_005.PIC" , "7.TXT" , "3roywul.pict" , "roywul.pict" , "18.1.TXT" , "3elk.pict" , "23.TXT" , "3prince.pict" , "26.TXT")
  72.   if gAnsListNo = 6 then set listMTH = list("MTH_006.PIC" , "7.TXT" , "3roywul.pict" , "roywul.pict" , "18.1.TXT" , "3elk.pict" , "23.TXT" , "3prince.pict" , "26.TXT")
  73.   if gAnsListNo = 7 then set listMTH = list("MTH_007.PIC" , "6.TXT" , "3ant.pict" , "drwnant.pict" , "17a.TXT" , "3grass.pict" , "17.TXT" , "3prince.pict" , "26.TXT")
  74.   if gAnsListNo = 8 then  set listMTH = list("MTH_008.PIC" , "6.TXT" , "3grass.pict" , "GrssHppr.pict" , "17.TXT" , "3ant.pict" , "17a.TXT" , "3roywul.pict" , "26.TXT")
  75.   if gAnsListNo = 9 then set listMTH = list("MTH_009.PIC" , "5.TXT" , "3hare.pict" , "hare.pict" , "16.2.TXT" , "3cad.pict" , "25.TXT" , "3olive.pict" , "26.TXT")
  76.   if gAnsListNo = 10 then set listMTH = list("MTH_010.PIC" , "4.TXT" , "3cad.pict" , "cadpupa.pict" , "15.2.TXT" , "3olive.pict" , "21.TXT" , "3hare.pict" , "26.TXT")
  77.   if gAnsListNo = 11 then set listMTH = list("MTH_011.PIC" , "3.TXT" , "3elk.pict" , "Elk_hair.pict" , "16.3.TXT" , "3adams.pict" , "20.1.TXT" , "3roywul.pict" , "22.TXT")
  78.   if gAnsListNo = 12 then set listMTH = list("MTH_012.PIC" , "3.TXT" , "3elk.pict" , "Elk_hair.pict" , "16.3.TXT" , "3adams.pict" , "20.1.TXT" , "3roywul.pict" , "22.TXT")
  79.   if gAnsListNo = 13 then set listMTH = list("MTH_013.PIC" , "2.TXT" , "3phe.pict" , "Phstl.pict" , "15.3.TXT" , "3hare.pict" , "28.TXT" , "3olive.pict" , "27.TXT")
  80.   if gAnsListNo = 14 then set listMTH = list("MTH_014.PIC" , "2.TXT" , "3phe.pict" , "Phstl.pict" , "15.3.TXT" , "3olive.pict" , "27.TXT" , "3hare.pict" , "28.TXT")
  81.   if gAnsListNo = 15 then set listMTH = list("MTH_015.PIC" , "1.TXT" , "3adams.pict" , "Adams.pict" , "16.4.TXT" , "3elk.pict" , "20.4.TXT" , "3roywul.pict" , "22.TXT")
  82.   if gAnsListNo = 16 then set listMTH = list("MTH_016.PIC" , "1.TXT" , "3adams.pict" , "Adams.pict" , "14.2.TXT" , "3elk.pict" , "21.TXT" , "3roywul.pict" , "22.TXT")
  83.   if gAnsListNo = 17 then set listMTH = list("MTH_017.PIC" , "8.TXT" , "3prince.pict" , "Prince1.pict" , "18.2.TXT" , "3hare.pict" , "23.TXT" , "3roywul.pict" , "22.TXT")
  84.   if gAnsListNo = 18 then set listMTH = list("MTH_018.PIC" , "8.TXT" , "3prince.pict" , "Prince1.pict" , "18.2.TXT" , "3hare.pict" , "23.TXT" , "3roywul.pict" , "22.TXT")
  85.   if gAnsListNo = 19 then set listMTH = list("MTH_019.PIC" , "11.TXT" , "3wbugg.pict" , "Wbugger.pict" , "19.TXT" , "3prince.pict" , "24.TXT" , "3kaufst.pict" , "26.TXT")
  86.   if gAnsListNo = 20 then set listMTH = list("MTH_020.PIC" , "12.TXT" , "3cad.pict" , "Cadpupa.pict" , "15.2.TXT" , "3olive.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  87.   if gAnsListNo = 21 then set listMTH = list("MTH_021.PIC" , "12.TXT" , "3cad.pict" , "Cadpupa.pict" , "15.2.TXT" , "3olive.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  88.   if gAnsListNo = 22 then  set listMTH = list("MTH_022.PIC" , "13.TXT" , "3olive.pict" , "olive.pict" , "15.4.TXT" , "3cad.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  89.   if gAnsListNo = 23 then  set listMTH = list("MTH_023.PIC" , "13.TXT" , "3olive.pict" , "olive.pict" , "15.4.TXT" , "3cad.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  90. end
  91.  
  92. on patchPal
  93.   fixPal(mPatchIt)
  94. end patchPal
  95.  
  96. on stopMovie
  97.   fixPal(mDispose)
  98.   if the machineType < 256 then closeXlib "XPALETTE"
  99.   else closeXlib "XPALETTE.dll"
  100. end stopMovie
  101.